﻿''' <summary>
''' Objet gérant les propriétés Text et Value pour les items d'une ComboBox
''' </summary>
''' <remarks></remarks>
Public Class ComboBoxItem

    Private _Text As String
    Private _Value As String
    Public Sub New()

    End Sub
    Public Sub New(ByVal Text As String)
        _Text = Text
    End Sub
    Public Sub New(ByVal Text As String, ByVal Value As String)
        _Text = Text
        _Value = Value
    End Sub
    Public Overrides Function ToString() As String
        Return _Text
    End Function
    Public Property Text As String
        Get
            Return _Text
        End Get
        Set(ByVal value As String)
            _Text = value
        End Set
    End Property
    Public Property Value As String
        Get
            Return _Value
        End Get
        Set(ByVal value As String)
            _Value = value
        End Set
    End Property
End Class
